home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 278
- Top = 231
- HelpContext = 10
- ActiveControl = ArticlesCheckBox
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'The Delphi Magazine Collection 2001 Installation'
- ClientHeight = 371
- ClientWidth = 605
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- ShowHint = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object Panel2: TPanel
- Left = 149
- Top = 0
- Width = 456
- Height = 310
- TabOrder = 0
- object Label3: TLabel
- Left = 23
- Top = 253
- Width = 96
- Height = 16
- Caption = 'Space required:'
- end
- object Label4: TLabel
- Left = 23
- Top = 281
- Width = 102
- Height = 16
- Caption = 'Space available:'
- end
- object LabelSpaceReq: TLabel
- Left = 196
- Top = 253
- Width = 19
- Height = 16
- Caption = 'Mb'
- end
- object LabelSpaceAvail: TLabel
- Left = 196
- Top = 281
- Width = 19
- Height = 16
- Caption = 'Mb'
- end
- object Label2: TLabel
- Left = 31
- Top = 14
- Width = 392
- Height = 20
- Alignment = taCenter
- Caption = 'The Delphi Magazine Collection 2001 Installation'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object GroupBox1: TGroupBox
- Left = 16
- Top = 139
- Width = 424
- Height = 105
- Caption = 'Directory to install files into'
- TabOrder = 0
- object EditInstallDiry: TEdit
- Left = 10
- Top = 26
- Width = 391
- Height = 24
- Hint = 'This is where the required files will be placed'
- CharCase = ecUpperCase
- TabOrder = 0
- OnChange = EditInstallDiryChange
- end
- object btnDirBrowse: TButton
- Left = 10
- Top = 60
- Width = 89
- Height = 33
- Hint = 'Click to choose a different directory'
- Caption = 'Browse...'
- TabOrder = 1
- OnClick = btnDirBrowseClick
- end
- object btnDefault: TButton
- Left = 114
- Top = 60
- Width = 89
- Height = 33
- Hint = 'Click to select default installation directory'
- Caption = 'Default'
- TabOrder = 2
- OnClick = btnDefaultClick
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 41
- Width = 424
- Height = 83
- Caption = 'Options'
- TabOrder = 1
- object ArticlesCheckBox: TCheckBox
- Left = 9
- Top = 26
- Width = 328
- Height = 17
- Hint = 'Allows quicker access to articles'
- Caption = 'Copy article .PDF files to hard disk [124Mb]'
- TabOrder = 0
- OnClick = ArticlesCheckBoxClick
- end
- object DisksCheckBox: TCheckBox
- Left = 9
- Top = 53
- Width = 328
- Height = 17
- Hint = 'Allows quicker access to source and example files'
- Caption = 'Copy companion disk files to hard disk [123Mb]'
- TabOrder = 1
- OnClick = ArticlesCheckBoxClick
- end
- end
- end
- object Panel3: TPanel
- Left = 149
- Top = 311
- Width = 456
- Height = 60
- TabOrder = 1
- object BtnCancel: TBitBtn
- Left = 231
- Top = 14
- Width = 97
- Height = 33
- Hint = 'Abort the installation'
- TabOrder = 0
- OnClick = BtnCancelClick
- Kind = bkCancel
- end
- object BtnContinue: TBitBtn
- Left = 342
- Top = 14
- Width = 97
- Height = 33
- Hint = 'Proceed to copy files from the CD-ROM to your hard disk'
- Caption = 'Continue'
- TabOrder = 1
- OnClick = BtnContinueClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF333333333330A003333333333337F773FF3333333330AAA00
- 33333FFFFF7F33773FF30000000AAAAA0033777777733333773F0AAAAAAAAAAA
- AA007FFFFFFF33333F770000000AAAAA00337777777F333F77333333330AAA00
- 33333333337F3F7733333333330A003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 149
- Height = 371
- Align = alLeft
- TabOrder = 2
- object Image1: TImage
- Left = 1
- Top = 1
- Width = 147
- Height = 369
- Align = alClient
- Picture.Data = {<image000.bmp>}
- end
- end
- object PTFolderBrowseDlg1: TPTFolderBrowseDlg
- Title = 'Select Directory'
- BaseFolder.Pidl = {0111}
- Left = 64
- Top = 248
- end
- end
-